(dired-get-filename): A file name starting with ~

is not absolute in this context.

diff --git a/lisp/dired.el b/lisp/dired.el
index 546de206aeeb24a00e489d8c6b270c6c620df7e2..987d8ddd899d7f3264d86c706325647d862016b9 100644 (file)
--- a/lisp/dired.el
+++ b/lisp/dired.el
@@ -1438,6 +1438,9 @@ Optional arg NO-ERROR-IF-NOT-FILEP means return nil if no filename on
                             file)
                         "\"")))))
     (and file (file-name-absolute-p file)
+        ;; A relative file name can start with ~.
+        ;; Don't treat it as absolute in this context.
+        (not (eq (aref file 0) ?~))
         (setq already-absolute t))
     (and file buffer-file-coding-system
         (not file-name-coding-system)